home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / hardc. 802 _1526 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  40 lines
  1. 1 REM *********************************
  2. 2 REM   4-FACH VERGROESSERTE HARDCOPY
  3. 3 REM                BY
  4. 4 REM          RALPH HOFFMANN
  5. 5 REM         CHRISTOPH BERTOG
  6. 6 REM         LIEBKNECHTSTR.17
  7. 7 REM           ZWEIBRUECKEN
  8. 8 REM              C 1985
  9. 9 REM *********************************
  10. 10 FORQ=52224TO52540:READD:POKEQ,D:X=X+D:NEXT
  11. 15 IF X<>42320 THEN PRINT"DATA-FEHLER":END
  12. 20 PRINT"[147]":A1=PEEK(53265):A2=PEEK(53272)
  13. 25 OPEN6,4,6:PRINT#6,CHR$(20)
  14. 30 OPEN4,4:PRINT#4,CHR$(141)
  15. 35 POKE254,0:POKE255,32
  16. 50 POKE53265,59:POKE53272,24
  17. 55 SYS52224
  18. 60 POKE53265,A1:POKE53272,A2
  19. 65 IFP=1THEN100
  20. 70 INPUT"NEU JUSTIERT";C$
  21. 75 IFC$<>"J"THEN97
  22. 80 POKE254,160:POKE255,32:P=1:PRINT"[147]":GOTO50
  23. 100 CLOSE6:CLOSE4:END
  24. 32000 DATA169,160,141,224,3,141,239,3,169,172,141,225,3,141,238,3,169,187,141
  25. 32001 DATA226,3,141,237,3,169,162,141,227,3,141,236,3,169,188,141,228,3,141,235
  26. 32002 DATA3,169,161,141,229,3,141,234,3,169,191,141,230,3,141,233,3,169,190,141
  27. 32003 DATA231,3,141,232,3,169,0,141,240,3,141,241,3,169,1,141,244,3,141,246,3
  28. 32004 DATA169,0,141,245,3,162,4,142,242,3,32,201,255,169,0,141,243,3,173,240
  29. 32005 DATA3,24,109,241,3,168,177,254,10,46,243,3,10,46,243,3,145,254,200,177
  30. 32006 DATA254,10,46,243,3,10,46,243,3,145,254,206,242,3,240,3,76,193,204,169
  31. 32007 DATA4,141,242,3,169,8,24,109,240,3,141,240,3,201,160,208,235,169,0,141
  32. 32008 DATA240,3,169,2,24,109,241,3,141,241,3,201,8,208,217,169,0,141,241,3,169
  33. 32009 DATA64,24,101,254,133,254,144,2,230,255,230,255,173,243,3,201,11,176,8
  34. 32010 DATA201,5,144,33,201,8,176,29,169,18,32,210,255,172,243,3,185,224,3,32
  35. 32011 DATA210,255,173,246,3,201,20,240,17,169,146,32,210,255,76,246,204,172,243
  36. 32012 DATA3,185,224,3,32,210,255,238,246,3,173,246,3,201,21,240,3,76,93,204,169
  37. 32013 DATA1,141,246,3,169,20,24,109,245,3,141,245,3,201,80,240,16,170,169,141
  38. 32014 DATA32,210,255,169,32,32,210,255,202,208,250,240,219,169,13,32,210,255
  39. 32015 DATA169,0,141,245,3,238,244,3,173,244,3,201,101,208,199,32,204,255,96
  40.